home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 April: Mac OS SDK / Dev.CD Apr 96 SDK / Dev.CD Apr 96 SDK2.toast / Development Kits (Disc 2) / ScriptX / Draggable ScriptX Folders / utils / DTK / Examples / Custom Classes / ClockToggle.cls < prev    next >
Encoding:
Text File  |  1995-10-29  |  917 b   |  38 lines  |  [TEXT/ttxt]
  1. --<<<
  2. format debug "--  Compiling ClockToggle Class . . .\n" undefined undefined
  3.  
  4. class ClockToggle(Toggle)
  5. end
  6.  
  7. method init self {class ClockToggle} #rest args #key castNum: lingo: dirInfo:->
  8. (
  9.     local cast := dirInfo[@cast]
  10.     local offPresenter := new TwoDShape boundary:cast[castNum].boundary
  11.       local cName := findSXKey(lingo, "toggle")
  12.       local onCast := castFromName(cName)
  13.     local onPresenter := new TwoDShape boundary:onCast.boundary
  14.     apply nextMethod self toggledOnPresenter:onPresenter \
  15.             toggledOffPresenter:offPresenter args
  16.     return self
  17. )
  18.  
  19. method toggleOn self {class ClockToggle} ->
  20. (
  21.     print "Toggle ON"
  22.     local myScene := self.presentedBy
  23.     for anim in myScene.players do
  24.         play anim
  25.     nextMethod self
  26. )
  27.  
  28. method toggleOff self {class ClockToggle} ->
  29. (
  30.     print "Toggle OFF"
  31.     local myScene := self.presentedBy
  32.     for anim in myScene.players do
  33.         stop anim
  34.     nextMethod self
  35. )
  36.  
  37. #(ClockToggle,undefined,undefined)
  38.